home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / lalr.lha / lalr / lib / Scanner.mi < prev   
Text File  |  1992-08-18  |  654b  |  28 lines
  1. (* $Id: Scanner.mi,v 2.2 1992/08/07 15:28:42 grosch rel $ *)
  2.  
  3. $@ IMPLEMENTATION MODULE $;
  4.  
  5. FROM IO IMPORT StdInput, ReadC;
  6.  
  7. PROCEDURE GetToken (): CARDINAL;
  8.    VAR ch: CHAR;
  9.    BEGIN
  10.       LOOP
  11.      ch := ReadC (StdInput);
  12.      IF ch = 12C THEN INC (Attribute.Position.Line); Attribute.Position.Column := 0;
  13.      ELSIF ch = ' ' THEN INC (Attribute.Position.Column);
  14.      ELSE INC (Attribute.Position.Column); EXIT;
  15.      END;
  16.       END;
  17.       RETURN ORD (ch);
  18.    END GetToken;
  19.  
  20. PROCEDURE ErrorAttribute (Token: CARDINAL; VAR Attribute: tScanAttribute);
  21.    BEGIN
  22.    END ErrorAttribute;
  23.  
  24. BEGIN
  25.    Attribute.Position.Line    := 1;
  26.    Attribute.Position.Column    := 0;
  27. $@ END $.
  28.